object fImpostos: TfImpostos
  Left = 348
  Top = 238
  Width = 649
  Height = 437
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object JvDBGrid1: TJvDBGrid
    Left = 0
    Top = 41
    Width = 633
    Height = 358
    Align = alClient
    DataSource = dsrcImp
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    AlternateRowColor = 16776176
    AutoSizeColumns = True
    SelectColumnsDialogStrings.Caption = 'Select columns'
    SelectColumnsDialogStrings.OK = '&OK'
    SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
    EditControls = <>
    RowsHeight = 17
    TitleRowHeight = 17
    Columns = <
      item
        Expanded = False
        FieldName = 'ANO_MES'
        Title.Caption = 'Refer'#234'ncia'
        Width = 85
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DESCRICAO'
        Title.Caption = 'Descri'#231#227'o'
        Width = 187
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PRAZO'
        Title.Caption = 'Dia do Pagamento'
        Width = 171
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FERIADO'
        Title.Caption = 'F'#233'riado / Fins de Semana'
        Width = 170
        Visible = True
      end>
  end
  object MMJPanel1: TMMJPanel
    Left = 0
    Top = 0
    Width = 633
    Height = 41
    Align = alTop
    TabOrder = 1
    Silhuette.Shape.ShapeText = 'Shape text'
    Silhuette.PictureShape.Picture.Data = {07544269746D617000000000}
    Silhuette.PictureShape.DisplayPicture = True
    Background.StartColor = clSilver
    Background.EndColor = clGreen
    Background.FillType = GradUpDown
    object BitBtn1: TBitBtn
      Left = 11
      Top = 8
      Width = 75
      Height = 25
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 91
      Top = 8
      Width = 75
      Height = 25
      TabOrder = 1
    end
    object BitBtn3: TBitBtn
      Left = 171
      Top = 8
      Width = 75
      Height = 25
      TabOrder = 2
    end
    object BitBtn4: TBitBtn
      Left = 251
      Top = 8
      Width = 75
      Height = 25
      TabOrder = 3
    end
  end
  object sImp: TSQLDataSet
    CommandText = 
      'select udf_PadL(CAST(MES as varchar(2)), '#39'0'#39', 2) || '#39'/'#39' || CAST(' +
      'ANO as varchar(4)) as ANO_MES'#13#10'         , DESCRICAO'#13#10'         , ' +
      'PRAZO'#13#10'         , FERIADO'#13#10'         , ID_IMPOSTO'#13#10'from IMPOSTO'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DM.scSge
    Left = 232
    Top = 168
    object sImpANO_MES: TStringField
      DisplayWidth = 7
      FieldName = 'ANO_MES'
      ReadOnly = True
      Size = 7
    end
    object sImpDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ReadOnly = True
      Size = 60
    end
    object sImpPRAZO: TIntegerField
      FieldName = 'PRAZO'
      ReadOnly = True
      Required = True
    end
    object sImpFERIADO: TIntegerField
      FieldName = 'FERIADO'
      ReadOnly = True
      Required = True
    end
    object sImpID_IMPOSTO: TIntegerField
      FieldName = 'ID_IMPOSTO'
      ReadOnly = True
      Required = True
    end
  end
  object dImp: TDataSetProvider
    DataSet = sImp
    UpdateMode = upWhereKeyOnly
    Left = 264
    Top = 168
  end
  object dsImp: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dImp'
    Left = 296
    Top = 168
    object dsImpANO_MES: TStringField
      DisplayWidth = 12
      FieldName = 'ANO_MES'
      ReadOnly = True
      Size = 6
    end
    object dsImpDESCRICAO: TStringField
      DisplayWidth = 81
      FieldName = 'DESCRICAO'
      ReadOnly = True
      Size = 60
    end
    object dsImpPRAZO: TIntegerField
      DisplayWidth = 14
      FieldName = 'PRAZO'
      ReadOnly = True
      Required = True
    end
    object dsImpFERIADO: TIntegerField
      DisplayWidth = 14
      FieldName = 'FERIADO'
      ReadOnly = True
      Required = True
    end
    object dsImpID_IMPOSTO: TIntegerField
      FieldName = 'ID_IMPOSTO'
      ReadOnly = True
      Required = True
    end
  end
  object dsrcImp: TDataSource
    DataSet = dsImp
    Left = 328
    Top = 168
  end
  object SQLDataSet2: TSQLDataSet
    Params = <>
    Left = 232
    Top = 200
  end
  object DataSetProvider2: TDataSetProvider
    Left = 264
    Top = 200
  end
  object ds3: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 296
    Top = 200
  end
  object ds4: TDataSource
    Left = 328
    Top = 200
  end
end
